home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / LOAN.SAB < prev    next >
Text File  |  1991-06-20  |  3KB  |  82 lines
  1. CLS
  2. label start
  3. cls
  4. SET V OPN TO ""
  5. display cp.dis
  6. write "LOAN.SAB" at 2,36
  7. write .use at 2,55
  8. WRITE "Finance/Loan Processing" at 6,28
  9. write "A...... View Finance Company Called By Address Code       " at 8,10
  10. write "B......                                                   " at 9,10
  11. write "C...... View Address Called By Finance Company            " at 10,10
  12. write "D...... View Address Called By Loan Account Number        " at 11,10
  13. write "E...... Edit LOAN.CO & LOANACCT For Specific Address Code " at 12,10
  14. write "F...... Edit PAYMENTS & LOAN.BAL For Specific Address Code" at 13,10
  15. write "G...... Edit All Fields In Prime Property                 " at 14,10
  16. write "<ESC>.. To Exit Program" at 15,10
  17. fillin opn using "Enter Selection ->  " at 17,10
  18.   if opn = "" then ; goto opx ; endif
  19.   if opn = a then ; goto opa ; endif
  20.   if opn = b then ; goto opb ; endif
  21.   if opn = c then ; goto opc ; endif
  22.   if opn = d then ; goto opd ; endif
  23.   if opn = e then ; goto ope ; endif
  24.   if opn = f then ; goto opf ; endif
  25.   if opn = g then ; goto opg ; endif
  26.   goto start
  27. label opa
  28.   set v code to ""
  29.   fillin code using "Enter All Or A Portion Of ADD.CODE or <ESC>  " at 19,10
  30.     if code = "" then ; goto start ; endif
  31.     cls
  32.       select loan.co real.add from property sorted by add.code where add.code +
  33.         contains .code and prime exists
  34.     write "Press <ENTER> To Continue"
  35.     pause
  36.       cls
  37.   goto start
  38. label opb
  39.   goto start
  40. label opc
  41.   set v fico to ""
  42.   fillin fico using "Enter All Or A Portion Of Finance Company  " at 19,10
  43.     cls
  44.      select real.add loan.co from property sorted by add.code where loan.co +
  45.        contains .fico and prime exists
  46.      write "Press <ENTER> To Continue"
  47.      pause
  48.   goto start
  49. label opd
  50.   set v acct to ""
  51.   fillin acct using "Enter All Or A Portion Of Account Number  " at 19,10
  52.     cls
  53.       select real.add loanacct from property sorted by add.code where loanacct +
  54.         contains .acct and prime exists
  55.       write "Press <ENTER> To Continue"
  56.       pause
  57.   goto start
  58. label ope
  59.   set v code to ""
  60.   fillin code using "Enter All Or A Portion Of ADD.CODE  " at 19,10
  61.     cls
  62.       edit loan.co loanacct real.add from property sorted by +
  63.         add.code where add.code contains .code and prime exists
  64.   goto start
  65. label opf
  66.   set v code to ""
  67.   fillin code using "Enter All Or A Portion Of ADD.CODE  " at 19,10
  68.     cls
  69.       edit payments loan.bal real.add from property sorted by add.code where +
  70.         add.code contains .code and prime exists
  71.   goto start
  72. label opg
  73.   set v code to ""
  74.   fillin code using "Enter All Or A Portion Of ADD.CODE  " at 19,10
  75.     cls
  76.     edit using property where add.code contains .code and prime exists
  77.   goto start
  78. label opx
  79.   cls
  80.   return
  81.  
  82.